home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
misc
/
amag
/
9303b.lha
/
ARexx & Assembler
/
Listing1.arexx
next >
Wrap
Text File
|
1993-02-25
|
396b
|
19 lines
/*Just DO it */
DO i=1 TO 7 /* FOR i=1 TO 7:PRINT i:NEXT */
SAY i
END
SAY DO i=1 TO 7 BY 2 /* FOR i=1 TO 7 STEP 2:PRINT i:NEXT */
SAY i
END
SAY DO WHILE i<20 /* WHILE i<20:PRINT i:i=i+4:WEND */
SAY i
i=i+4
END
SAY DO UNTIL i<10 /* Nicht direkt in BASIC übertragbar */
SAY i
i=i-5
END
SAY DO
SAY "Das war's" /* PRINT "Das war's" */
END